Master Visual Basic 3/Master Visual Basic 3 (SAMS Publishing) (1994).ISO/mvprog/original/ch03/mymenu.frm

Visual Basic Form | 1994-04-06 | 8.7 KB | 284 lines

VERSION 2.00
Begin Form frmMyMenu
   Caption         =   "The MyMenu Program"
   ClientHeight    =   6255
   ClientLeft      =   1095
   ClientTop       =   705
   ClientWidth     =   7365
   Height          =   6945
   Icon            =   MYMENU.FRX:0000
   Left            =   1035
   LinkTopic       =   "Form1"
   ScaleHeight     =   6255
   ScaleWidth      =   7365
   Top             =   75
   Width           =   7485
   Begin PictureBox picStatusbar2
      Align           =   2  'Align Bottom
      BackColor       =   &H00C0C0C0&
      Height          =   1140
      Left            =   0
      ScaleHeight     =   1110
      ScaleWidth      =   7335
      TabIndex        =   3
      Top             =   4620
      Width           =   7365
      Begin CheckBox chkNoColorMenu
         BackColor       =   &H00C0C0C0&
         Caption         =   "Color Menu"
         Height          =   615
         Left            =   480
         TabIndex        =   5
         Top             =   240
         Value           =   1  'Checked
         Width           =   1335
      End
      Begin Image imgExit
         Height          =   1125
         Left            =   6240
         Picture         =   MYMENU.FRX:0302
         Top             =   0
         Width           =   1125
      End
      Begin Image imgExitUp
         Height          =   1125
         Left            =   6240
         Picture         =   MYMENU.FRX:0F34
         Top             =   0
         Visible         =   0   'False
         Width           =   1125
      End
      Begin Image imgExitDn
         Height          =   1125
         Left            =   6240
         Picture         =   MYMENU.FRX:1B66
         Top             =   0
         Visible         =   0   'False
         Width           =   1125
      End
   End
   Begin PictureBox picStatusbar1
      Align           =   2  'Align Bottom
      BackColor       =   &H00C0C0C0&
      Height          =   495
      Left            =   0
      ScaleHeight     =   465
      ScaleWidth      =   7335
      TabIndex        =   2
      Top             =   5760
      Width           =   7365
      Begin CommandButton cmdExit
         Caption         =   "E&xit"
         Height          =   495
         Left            =   480
         TabIndex        =   4
         Top             =   0
         Width           =   1335
      End
   End
   Begin PictureBox picToolbar2
      Align           =   1  'Align Top
      BackColor       =   &H00C0C0C0&
      Height          =   1680
      Left            =   0
      ScaleHeight     =   1650
      ScaleWidth      =   7335
      TabIndex        =   1
      Top             =   1695
      Width           =   7365
      Begin Image imgRed
         Height          =   1665
         Left            =   0
         Picture         =   MYMENU.FRX:2798
         Top             =   0
         Width           =   1275
      End
      Begin Image imgRedUp
         Height          =   1665
         Left            =   0
         Picture         =   MYMENU.FRX:3B26
         Top             =   0
         Visible         =   0   'False
         Width           =   1275
      End
      Begin Image imgRedDn
         Height          =   1665
         Left            =   0
         Picture         =   MYMENU.FRX:4EB4
         Stretch         =   -1  'True
         Top             =   0
         Visible         =   0   'False
         Width           =   1275
      End
   End
   Begin PictureBox picToolbar1
      Align           =   1  'Align Top
      BackColor       =   &H00C0C0C0&
      Height          =   1695
      Left            =   0
      ScaleHeight     =   1665
      ScaleWidth      =   7335
      TabIndex        =   0
      Top             =   0
      Width           =   7365
      Begin Image imgBlue
         Height          =   1665
         Left            =   3240
         Picture         =   MYMENU.FRX:6242
         Top             =   0
         Width           =   1275
      End
      Begin Image imgBlueUp
         Height          =   1665
         Left            =   3240
         Picture         =   MYMENU.FRX:75D0
         Top             =   0
         Visible         =   0   'False
         Width           =   1275
      End
      Begin Image imgBlueDn
         Height          =   1665
         Left            =   3240
         Picture         =   MYMENU.FRX:895E
         Top             =   0
         Visible         =   0   'False
         Width           =   1275
      End
      Begin Image imgGreen
         Height          =   1665
         Left            =   1920
         Picture         =   MYMENU.FRX:9CEC
         Top             =   0
         Width           =   1275
      End
      Begin Image imgGreenDn
         Height          =   1665
         Left            =   1920
         Picture         =   MYMENU.FRX:B07A
         Top             =   0
         Visible         =   0   'False
         Width           =   1275
      End
      Begin Image imgGreenUp
         Height          =   1665
         Left            =   1920
         Picture         =   MYMENU.FRX:C408
         Top             =   0
         Visible         =   0   'False
         Width           =   1275
      End
   End
   Begin Menu mnuFile
      Caption         =   "&File"
      Begin Menu mnuExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu mnuColor
      Caption         =   "&Color"
      Begin Menu mnuRed
         Caption         =   "&Red"
      End
      Begin Menu mnuBlue
         Caption         =   "&Blue"
      End
      Begin Menu mnuGreen
         Caption         =   "&Green"
      End
   End
   Begin Menu mnuToolAndStatus
      Caption         =   "&Tool and Status Bar"
      Begin Menu mnuToolbar
         Caption         =   "&Toolbar"
         Checked         =   -1  'True
      End
      Begin Menu mnuStatusbar
         Caption         =   "&Statusbar"
         Checked         =   -1  'True
      End
   End
Option Explicit
Sub chkNoColorMenu_Click ()
    If chkNoColorMenu.Value = 0 Then
       mnuColor.Visible = False
    Else
       mnuColor.Visible = True
    End If
End Sub
Sub cmdExit_Click ()
    End
End Sub
Sub imgBlue_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgBlue.Picture = imgBlueDn.Picture
End Sub
Sub imgBlue_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgBlue.Picture = imgBlueUp.Picture
    mnuBlue_Click
End Sub
Sub imgExit_Click ()
    End
End Sub
Sub imgExit_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgExit.Picture = imgExitDn.Picture
End Sub
Sub imgExit_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgExit.Picture = imgExitUp.Picture
End Sub
Sub imgGreen_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgGreen.Picture = imgGreenDn.Picture
End Sub
Sub imgGreen_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgGreen.Picture = imgGreenUp.Picture
    mnuGreen_Click
End Sub
Sub imgRed_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
imgRed.Picture = imgRedDn.Picture
End Sub
Sub imgRed_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
     imgRed.Picture = imgRedUp.Picture
     mnuRed_Click
End Sub
Sub mnuBlue_Click ()
    frmMyMenu.BackColor = QBColor(1)
    mnuRed.Enabled = True
    mnuGreen.Enabled = True
    mnuBlue.Enabled = False
End Sub
Sub mnuExit_Click ()
    End
End Sub
Sub mnuGreen_Click ()
    frmMyMenu.BackColor = QBColor(2)
    mnuRed.Enabled = True
    mnuGreen.Enabled = False
    mnuBlue.Enabled = True
End Sub
Sub mnuRed_Click ()
    frmMyMenu.BackColor = QBColor(4)
    mnuRed.Enabled = False
    mnuGreen.Enabled = True
    mnuBlue.Enabled = True
End Sub
Sub mnuStatusbar_Click ()
    If mnuStatusbar.Checked = True Then
       picStatusbar1.Visible = False
       picStatusbar2.Visible = False
       mnuStatusbar.Checked = False
    Else
       picStatusbar1.Visible = True
       picStatusbar2.Visible = True
       mnuStatusbar.Checked = True
    End If
End Sub
Sub mnuToolbar_Click ()
    If mnuToolbar.Checked = True Then
       picToolbar1.Visible = False
       picToolbar2.Visible = False
       mnuToolbar.Checked = False
    Else
       picToolbar1.Visible = True
       picToolbar2.Visible = True
       mnuToolbar.Checked = True
    End If
End Sub